Die Speccy' 97/Die Speccy' 97.iso/amiga_system/the_aminet/util/boot/bs124.lha/bootselector1.24/Install

Text File | 1995-10-27 | 10KB | 328 lines

;
; $VER: BootSelector Install 2.0 (27.10.95)
;
; Copyright (c) 1995 Michael Gollmick.
;
;-----------------------------------------------------
;
; English texts
;

(set #InstallVersion    "BootSelector Install-Script 2.0")

(IF (= @LANGUAGE "english")
(
(set speech 0)

(SET #bad-kick        "BootSelector requires at least Kickstart 2.04 !")

(set #choose-docdest    "Please choose a path for the documentation file.")
(set #choose-docdest-help " The documentation-file contains the same information as the Amiga-Guide file, but in normal ASCII-format.\n The destination path is should be the same as that one, you usually store your documentations to.")
(set #choose-guidedest    "Please choose a path for the AmigaGuide documentation file.")
(set #choose-guidedest-help " The Amiga-Guide documentation is a file in Hypertext-format, which may be viewed with MultiView or AmigaGuide.\n The destination path should be the same as that one you usually store your AmigaGuide files to. Usually this is HELP:")

(set #select-mainf    "\n\nDo you want to install BootSelector 1.24?")
(set #help-mainf    (cat " The main BootSelector file is required to choose between Startup-Sequences. This file is usually placed into the \"C:\" drawer, where it will be found easy.\n\n\n" @copyfiles-help))

(set #SelectStartup    "Please choose all the Startup-Sequences you want to install.\n\n")
(set #SelectStartupHelp    " BootSelector needs alternative Startup-Sequences for its work. This alternative Startup-Sequences should be installed into the S:Startup's directory. If you use an older version of BootSelector, you may have alternative Startup-Sequences with same names already and you do not wish to copy all that scripts. Please choose for that reason the needet alternative scripts.\n The Installer-Script makes a savety-clone of your original Startup-Sequence, for loosing no data in an eventual mailfunktion of the script.")

(set #choose-guide    "Please choose the language you want for the Amiga-Guide documentation.")
(set #choose-guide-help " The Amiga-Guide documentation is a file in Hypertext-format, which may be viewed with MultiView or AmigaGuide.")

(set #choose-doc    "Please choose the language you want for the documentation file\n")
(set #choose-doc-help    " The documentation-file contains the same information as the Amiga-Guide file, but in normal ASCII-format.")

(set #support-me    (cat "This is MAILWARE.\n\nIf you use this Program regulary, you have to send me a Mail.  Thank you.\n\n"))
(set #ready        "BootSelector is now installed correctly. You can reset your machine for testing.")

))

;=============================================================================
; german strings

(if (= @language "deutsch")
(

(set speech 1)

(SET #bad-kick        "BootSelector ben÷tigt mindestens Kickstart 2.04 !")

(set #choose-docdest    "Bitte wΣhlen Sie einen Zielpfad fⁿr die Dokumentationsdatei.")
(set #choose-docdest-help " Die Dokumentationsdatei enthΣlt dieselben Informationen wie die Amiga-Guide-Dokumentation, aber im normalen ASCII-Format.\n Der Zielpfad sollte der Pfad sein, in dem Sie normalerweise auch Ihre Anleitungen aufbewahren.")
(set #choose-guidedest    "Bitte wΣhlen Sie eine Zielpfad fⁿr die Amiga-Guide-Dokumentation.")
(set #choose-guidedest-help " Die Amiga-Guide Dokumentation ist eine Datei im Hypertext-Format, die mit MultiView oder AmigaGuide angezeigt werden kann.\n Der Zielpfad sollte der Pfad sein, in dem sie normalerweise auch Ihre AmigaGuide-Dateien aufbewahren. Normalerweise ist das das Verzeichnis Help:")

(set #select-mainf    "\n\nM÷chten Sie BootSelector 1.24 installieren?")
(set #help-mainf    (cat " Das Hauptprogramm von BootSelector wird dazu ben÷tigt, zwischen den verschiedenen Startup-Sequencen zu wΣhlen. Dieses Programm sollte normalerwise im \"C:\" Verzeichnis Ihres Systems stehen, damit es leicht gefunden werden kann.\n\n" @copyfiles-help))

(set #SelectStartup    "Bitte wΣhlen Sie alle Startup-Sequencen, die sie installiert haben m÷chten.\n\n")
(set #SelectStartupHelp    " BootSelector ben÷tigt alternative Startup-Sequencen, um zu funktionieren. Diese alternativen Scripte sollten im Verzeichnis S:Startup's stehen. Wenn Sie schon eine Σltere Version von BootSelector benutzen, dann m÷chten Sie vielleicht nicht alle Startup-Sequencen kopieren. Bitte wΣhlen Sie aus diesem Grund die ben÷tigten alternativ-Scripte aus.\nDas Installer-Script macht eine Sicherheitskopie von Ihrer original-Startup-Sequence, damit bei einer eventuellen Fehlfunktion keine Daten verloren gehen.")

(set #choose-guide    "Bitte wΣhlen Sie eine Sprache fⁿr die Amiga-Guide Dokumentation.")
(set #choose-guide-help " Die Amiga-Guide Dokumentation ist eine Datei im Hypertext-Format, die mit MultiView oder AmigaGuide angezeigt werden kann.")

(set #choose-doc    "Bitte wΣhlen Sie die Sprache fⁿr die Dokumentationsdatei.")
(set #choose-doc-help    " Die Dokumentationsdatei enthΣlt dieselben Informationen wie die Amiga-Guide-Dokumentation, aber im normalen ASCII-Format.")

(set #support-me    (cat "Dies ist MAILWARE.\n\nWenn Sie dieses Programm regelmΣ▀ig benutzen, sollten Sie mir eine Mail zukommen lassen.\nVielen Dank.\n\n"))
(set #ready        "BootSelector ist jetzt komplett installiert. Sie k÷nnen Ihren Rechner zurⁿcksetzen um zu testen.")

))
;=============================================================================
;
;****************************************************************************
;
; Setup
;

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

(set startup-dest "S:Startup's")

(complete 0)


;****************************************************************************
;
; Welcome
;

(complete 5)

(welcome)

(message "\nBootSelector\n Version 1.24 \n\nCopyright ⌐ 1995 "
     "Michael Gollmick,\nAll Rights Reserved.\n\n\n"
         #InstallVersion
)

(complete 10)

(SET doc-dest
    (ASKDIR
        (PROMPT #choose-docdest)
        (HELP #choose-docdest-help)
        (DEFAULT "HELP:")
    )
)
(SET guide-dest
    (ASKDIR
        (PROMPT #choose-guidedest)
        (HELP #choose-guidedest-help)
        (DEFAULT doc-dest)
    )
)

;****************************************************************************
;
; Install Main Program
;

(copylib
       (prompt #select-mainf )
       (help   #help-mainf)
       (source "C/BootSelector")
       (confirm)
       (dest   "C:")
)

(complete 20)

;****************************************************************************
;
; Install Startup-Sequences
;

(copyfiles
       (prompt #mainf)
       (help   #mainf)
       (source "S:Startup-Sequence")
       (dest   "S:")
       (newname "Startup-Sequence_saveclone")
)

(complete 30)

(IF (= (EXISTS "S:Startup's/Startup-SequenceI") 1)
    (copyfiles
           (source "S:Startup's/Startup-SequenceI")
           (dest   startup-dest)
               (newname "Startup-SequenceI_saveclone")
        )
)

(complete 35)

; Get startup information
(set startupchen (askoptions
               (prompt #Selectstartup)
               (choices "Startup-SequenceI" "Startup-SequenceII" "Startup-SequenceIII" "Startup-SequenceIV" "Startup-SequenceV" "Startup-SequenceVI")
               (help #SelectStartupHelp)
               (default 0)
             )
)

(complete 40)

(if startupchen
   (
      (if (IN startupchen 0)
         (
            (copyfiles
               (source "S:Startup-Sequence")
               (dest   startup-dest)
               (newname "Startup-SequenceI")
            )

    (complete 45)

        (copyfiles
               (source "S/Startup-Sequence")
               (dest   "S:")
        )


         )
      )


(complete 50)

      (if (IN startupchen 1)
         (
            (copyfiles
               (source "S/Startup-SequenceII")
               (dest   startup-dest)
            )
         )
      )

(complete 55)

      (if (IN startupchen 2)
         (
            (copyfiles
               (source "S/Startup-SequenceIII")
               (dest   startup-dest)
            )
         )
      )

(complete 60)

      (if (IN startupchen 3)
         (
            (copyfiles
               (source "S/Startup-SequenceIV")
               (dest   startup-dest)
            )
         )
      )

(complete 65)

      (if (IN startupchen 4)
         (
            (copyfiles
               (source "S/Startup-SequenceV")
               (dest   startup-dest)
            )
         )
      )

(complete 70)

      (if (IN startupchen 5)
         (
            (copyfiles
               (source "S/Startup-SequenceVI")
               (dest   startup-dest)
            )
         )
      )

  )
)

(complete 75)

;****************************************************************************
;
; Choose Guide
;

(SET guide
    (ASKCHOICE
        (PROMPT #choose-guide)
        (HELP #choose-guide-help)
        (CHOICES
            "English"
            "Deutsch"
        )
        (DEFAULT speech)
    )
)
(IF (= guide 0)
    (COPYFILES
        (SOURCE "English/BootSelector.GUIDE")
        (DEST guide-dest)
                (infos)
    )
)
(IF (= guide 1)
    (COPYFILES
        (SOURCE "Deutsch/BootSelector.GUIDE")
        (DEST guide-dest)
                (infos)
    )
)

(complete 80)

;****************************************************************************
;
; Choose Documentation
;

(SET guide
    (ASKCHOICE
        (PROMPT #choose-doc)
        (HELP #choose-doc-help)
        (CHOICES
            "English"
            "Deutsch"
        )
        (DEFAULT speech)
    )
)
(IF (= guide 0)
    (COPYFILES
        (SOURCE "English/BootSelector.DOC")
        (DEST doc-dest)
                (infos)
    )
)
(IF (= guide 1)
    (COPYFILES
        (SOURCE "Deutsch/BootSelector.DOC")
        (DEST doc-dest)
                (infos)
    )
)

(complete 90)

;****************************************************************************
;
; Exit
;

    (complete 99)
    (MESSAGE #support-me #ready)
    (complete 100)

(EXIT (QUIET))